Top 10k strings from Full Screen Editor-Assembler (1984)(Oxford Computer Publishing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 PPress ENTER to continue < >
3 (LENGTH),HL
2 X"oq!sq"qq
2 HL,(TLPNTR)
2 HL,(MAXLNG)
2 HL,(LENGTH)
2 HL,(COORDS)
2 Edit/Assem
2 @This function allows you to
2 (TLPNTR),HL
1 {IHBBBBBBBBBBBBBBB
1 {)HBBDFABDFABCBBBB
1 zPr = Load normal char. < >
1 x"x-xExVxexyx
1 warm=24304
1 udg /
1 udg
1 cold=24301
1 character in the line is a semicolon. Blank lines are also allowed to space out a listing. Both comments and blank lines are ignored by the a/
1 `Ptyping symbol shift q.
1 `HThis allows you to recall any ofyour own chars.
1 _`ObjectCode
1 ZPq = Load UDG char.
1 UNDEFINED SYMBOL
1 TOTAL ERRORS
1 TAPE ERROR
1 Snake
1 Side A - 48k0
1 SYMBOL TABLE
1 START ; Restart
1 ROM Loader
1 Pt = Stop
1 Ps = Help
1 Programming
1 Pprogram from the memory if your BASIC program is more than a
1 Po = Edit char.
1 PTo restart the UDG program (if still in memory) type GOTO 20.
1 PThis allows you to load any of the normal char. set into the grid. The "
1 PRTCHR ; yellow body
1 PRTCHR ; print it
1 PRTCHR ; snake.
1 PENTER CHAR. < >
1 Oxford Computer Publishing
1 OBJECT CODE BUFFER&
1 Note: Not the Plus 80 version.0
1 NZ ; Multiple keys
1 NC ; No key pressed
1 MULTIPLY DEFINED SYMBOL
1 MULTIPLE DEFINITION
1 MOVEHD ; move head
1 MISSING INFORMATION
1 LOOP ; continue
1 L ; to the right
1 L ; move to the left
1 L ; divide by 4
1 INKEY ; scan keys
1 INIT ; initialise
1 Hnumeric columns to the left of the grid also changing. These are the numeric values of the rows of the grid in hexadecimal and decimal form. The char. in the bottom right-hand corner
1 Hhowever, that you might have to type NEW to clear the UDG
1 HTo select a function, position the cursor between the following< > symbols and press ENTER. TheENTER key is also used to exit the functions.
1 HThe program offers 6 functions.
1 HThe program displays each char. in a grid form, with each dot ofthe 64 dots that go to make up achar. enlarged 256 times.
1 HL; increment length
1 HL; decrement length
1 HL,TLPOSN ; cycle it
1 HL,TLPOSN ; cycle
1 HL,DISFLE+6*1024
1 HL,DE ; too long ?
1 HL,DE ; pointer
1 HL,DE ; Move
1 HL,BC ; restore HL
1 HL,15 ; sound a
1 HL,0C10H ; centre of
1 HL,(TLPNTW)
1 HL ; empty stack
1 HL ; Save it
1 HL ; Empty stack
1 HL ; increment max.
1 HL ; tail posn.
1 HL ; clear ?
1 HJames Hutchby
1 HBBCBJBCBBBGFABB
1 H4. Load normal char.
1 H ; move up
1 H ; move down
1 H ; HL <= HL + 256
1 Full Screen Editor/Assembler
1 For Steve Brown
1 FTZXed by Andrew Barker
1 FOUND FILE:
1 FILE TOO BIG
1 FIELD OVERFLOW
1 Editor/Assembler
1 ENTER COMMAND =>
1 DIVISION BY ZERO
1 DELAY ; scale.
1 DE,TLPOSN+510
1 DE,SPACE ; Blank out
1 DE,DISFLE+6*1024+1
1 DE,DISFLE+1
1 DE,0750 ; short,high
1 DE,(LENGTH)
1 DE ; next byte
1 Character Generator
1 CLS ; Snake moves
1 C,MOVETL ; move tail
1 C,7*8+7 ; end of
1 C,7*8+4 ; green head
1 C,4*8+6 ; green and
1 BRANCH OUT OF RANGE
1 BEEP ; pitched tone.
1 BC,TLPOSN+510
1 BC,6*1024-1
1 BC,3*256-1
1 BC,1000 ; upper
1 BAD OPCODE
1 BAD EXPRESSION
1 BAD ADDRESSING MODE
1 B,8 ; 8 rows in char
1 B,100 ; Wait for
1 B ; B <= 3
1 B ; B <= 2
1 B ; B <= 1
1 A` ; Direction the head is moving :
1 ASSEMBLY ABORTED
1 A,B ; new direction
1 A,17 ; Output a
1 A,1 ; Blue
1 A,(HL) ; is the way
1 A,(DIRCTN)
1 A,(DE) ; row data =>
1 A,(23693); permanent
1 A ; initially to the
1 A ; limit
1 @store your own chars. in the
1 @move the cursor anywhere in the grid. Typing SPACE will remove adot, any other key will add a dot. If you change the char. in the grid you will see the 2
1 @change the char. in the grid. Using keys 5,6,7 & 8 you can
1 @area set aside for them above RAMTOP.
1 @User Defined Graphics
1 @UDG is a program to help you to develop your own graphic chars. quickly and simply.
1 @This function will return you tothese explanatory notes.
1 @Pwill also change. This is the actual size of the char. in the grid.
1 @Pfew statements long.
1 @FUNCTIONS (3)
1 @FUNCTIONS (2)
1 @FUNCTIONS (1)
1 @BBBBBBBBBBBBBBB
1 @BBASDBASDBHSDBB
1 @@5. Help.
1 @@2. Save UDG char.
1 @@1. Edit Char.
1 ?~~~~w~?~~~?~~~~~?~~~~~~~~~~~~~~?~~~
1 ?wo}ww?ww~~???o{ww{
1 ?PAHG@IPOHQ@O
1 ; the print position , the DE
1 ; tails position.
1 ; snake's head.
1 ; snake's body and head.
1 ; screen using the keys as
1 ; reset attributes
1 ; register pair pointing to
1 ; point in the display file.
1 ; point in the attributes area.
1 ; or insert an ORG statement
1 ; of the attributes memory.
1 ; follows:
1 ; desired colour attributes.
1 ; containing the x,y coords of
1 ; border and its own tail.
1 ; and execute using 'RUN'
1 ; and assemble to tape.
1 ; X - exit
1 ; Write Pointer into the above.
1 ; This subroutine clears the
1 ; The snake must avoid both the
1 ; Subroutine to move the tail
1 ; Subroutine to move the head
1 ; Stores the position of the
1 ; Stores the coords of the
1 ; Routine to read the keyboard
1 ; Read pointer into the above.
1 ; Print character subroutine
1 ; O - left P - right
1 ; Maximum length of snake.
1 ; Length of snake.
1 ; Initialisation
1 ; HL now points to the relevant
1 ; HL now points to the 1St byte
1 ; Guide the snake around the
1 ; Fed with the HL register pair
1 ; Dot matrix data for the
1 ; C register containing the
1 ; Assemble into memory (A/IM)
1 ; 8 bytes of row data and the
1 ; 3 = DOWN
1 ; 1 = RIGHT
1 ; 1 - up Q - down
1 ; 0 = LEFT
1 ; & border colours.
1 ; "Snake" - demo program
1 ; and paper
1 ; 2 seconds
1 :Pp = Save UDG char.
1 8I@Editor/Assembler
1 7*8+7 ; ahead
1 16384 ; Display file
1 03B5H ; Beeper
1 031EH ; Test keycode
1 028EH ; Scan keys
1 0#Snake demonstrations program (Code)
1 *^[&%>}/,-]'$<{?.+
1 *3m###"3m*5m
1 (TLPNTW),HL ; update
1 (TLPNTW),HL
1 (MAXLNG),HL ; length
1 (MAXLNG),HL
1 (HL),E ; Store new
1 (HL),C ; Set colours
1 (HL),A ; disp file
1 (HL),A ; colours
1 (HL),63 ; White ink
1 (DIRCTN),A ; left
1 (DIRCTN),A
1 (COORDS),HL ; screen
1 (COORDS),DE
1 (254),A ; falling
1 (254),A ; border
1 'p ; HL points to the corresponding
1 $ ; Snake crashed
1 $ ; Print character
1 $ ; Clear screen
1 " is obtained by
1 START THE TAPE AND PRESS ANY KEYSourceCode!
1 Oxford Computer Publ. Ltd.
1 OXFORD COMPUTER PUBLISHING
1 HThis function will return you toBASIC. At this point you can useany chars. you have created and saved in the area set aside for them above RAMTOP. Remember,
1 H3. Load UDG char.
1 F. Ainley 1982
1 BYTES FREE (FROM H)
1 ; screen and sets the attributes
1 ((() 0
1 INVALID REQUEST
1 OUT OF MEMORY
1 NOT FOUND